

################################# Direct Question Israel  ##################################################
library(tidyverse)
library(list)

dq <- matrix(c(3.5192, 3.4451, 3.5933, 3.0178, 2.892, 3.1435, -0.50134, -0.36139, -0.64129),nrow=3,ncol=3,byrow=TRUE)
colnames(dq) <- c("fit", "lwr", "upr")
rownames(dq) <- c("disagree", "agree", "Difference")

as_tibble(dq) %>% 
  mutate(term = c("Diversion disagree", "Diversion agree", "Difference") %>% 
           fct_inorder()) %>% 
  ggplot() + 
  geom_pointrange(aes(x = term, y = fit, ymin = lwr, ymax = upr)) + labs(title="Direct Question") +
  geom_hline(aes(yintercept = 0), linetype = "dashed")